perm filename TEST[E,ALS]2 blob sn#133436 filedate 1974-12-02 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00007 ENDMK
C⊗;
  This is the title line.

  Here is some text for use in trying to understand the JUST and JFILL
  commands.  2This is  line 2  which is  a bit  short. 3This  is line
  number 3 which has been padded out  to make it extra long so as  to
  see what JFILL  does.  4Now still another rather  long line so that
  there  has to be some  carry-over to line number 5,   which in this
  case is short. 
HOMEF:	PUSHJ P,ZSAVE	;Save a record of present conditions
	TLO F,ZATT
	TRNN F,REDNLY
	PUSHJ P,WRPAGE	;Save page if not in READONLY mode 
;	TLZE F,ENTRD	;I BELIEVE THAT WE SHOULD CLOSE ALWAYS FOR SAFETY
	CLOSE DSKO	;Make sure file gets out savely
;	PUSHJ P,TMPWRT	;We may want to return
	PUSHJ P,FLSPAG	;This should flush page without bothering ATTACH buffer.
 	PUSHJ P,FLSDIR	;Necessary to make room if repeated switching is allowed
	SETZM DIR
	SETZM CREASW	;Don't want to be in CREATE mode for sure.
	TRZ F,REDNLY	;Set for READWRITE
	SETZM RDONLY	;Set for read write
	SETZM CREASW	;Don't want to be in CREATE mode for sure.
	MOVE T,ZDATAR	;Get return index value
abcdefg
asddddd
abcdefg
asddddd
	JRST EPSIL1	;The rest of the routine is the same
   This is line number 1 and some filler for number one. 

   THIS IS LINE NUMBER 2 and some filler for number two. 

   THIS IS LINE NUMBER 3 and some filler for number three. 

   THIS IS LINE NUMBER 4 

  THIS IS LINE NUMBER 5 

  THIS IS LINE NUMBER 6 

  THIS IS LINE NUMBER 7 

  THIS IS LINE NUMBER 8 

  This is some  text for use  in trying to  understand **0** 4 **0**  5
  **0** 6 **0** 7 **0** 8 **0  ** 9 **0** 10 **0 ** 11 **0 ** 12 **0
  ** 13 **0 ** 14 **0 

  ** 8 **0 ** 9 **0** 10 **0 **  11 **0 **8 **0 ** 9 **0** 10 **0  **
  11 **0**0** 10 **0 ** 11 **0 ** 12 **0  *** 11 *0** 2 **0** 3 **0**
  4 **0** 5 **0** 6 **0** 7 **0** 8 **0 ** 9 **0** 10 **0** 11 **0 **
  **0 ** 13 **0 ** 14 **0 ASD ASDFGH 0123456789 0 ** 12  **0 ** 13
  **0   **   14  **0   ASD   ASDFGH   smith  ↓smith   αsmith   ABCDth
  AASDFGGGGGGGGGGGGGGGGGGGGGGGG    Asmith    ASD    λsmith    th    ABCDth
  AASDFGGGGGGGGGGGGGGGGGGG Asmith smith  smith ∞smith ⊂smith  ⊃smith
  12:34  ∩smith  ∪smith ∀smith  ∃smith  ⊗smith  ↔smith _smith  →smith
  ~smith ≠smith  ≤smith  ≥smith  smith asmith  ∨smith  !smith  #smith
  $smith  %smith &smith  'smith (smith  )smith  *smith +smith  ,smith
  -smith  'smith  (smith  )smith.smith  /smith  :smith ;smith  <smith
  =smith >smith  ?smith  @smith [smith  \smith ]smith  ↑smith  ←smith
  `smith {smith |smith |smith }smith }smith smith 

  ]smith ↑smith ←smith `smith  {smith |smith |smith }smith`smith {smith
  |smith |smithThis is the top of